арифметичні цикли

Інформація про навчальний заклад

ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано

Інформація про роботу

Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 3_1 з дисципліни “Основи програмування та алгоритмічні мови” Тема: арифметичні цикли Київ 2010 Постановка задачі Для заданого значення x обчислити суму перших n членів ряду  . Аналітичні викладки , де ki-це ‘I’-тий член ряду.    Отже кожний наступний член ряду більше попереднього на число  Блок-схема алгоритму Текст програми з коментарями program vichislenie_summi_ryada; uses crt; var s:real; {summa pervix n chlenov ryada s(x) } x:real; {peremennaya x } n:integer; {kolichestvo chlenov ryada s(x) } i:integer; {schetchik} k:real; {promegutochnoe znachenie} BEGIN repeat textbackground(3); clrscr; textcolor(black); writeln('Result of laboratory work 3'); writeln('variant 4'); writeln('Executed student of group IP-02 Bondur Vladislav'); textcolor(white); write('vvedite "x","n": '); textcolor(blue); read(x,n); textcolor(red); k:=1; s:=1; if n>=1 then begin for i:=1 to n-1 do s:=s+k*x/i; writeln('s=',s:0:5); end else writeln('vvedite pologitel`noe chislo n, ili n bol`she 0'); writeln('dlya vixoda iz programmi nagmite Esc') until ord(readkey)=27 END. Результат виконання програми у вигляді відеокопії екрана / Висновки Отже, перевіримо, чи правильно працює моя програма: Нехай х=5 та n=3, тоді  Результати співпадають, тому моя програма працює як треба.
Антиботан аватар за замовчуванням

25.02.2013 16:02

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини